home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe038.dms / pe038.adf / outro.AMOS / outro.amosSourceCode
AMOS Source Code  |  1991-10-30  |  5KB  |  176 lines
  1. Clear Key : Break Off 
  2. Global BIG_FNT,WEE_FNT1,WEE_FNT2
  3. Get Disc Fonts 
  4. BIG_FNT=0 : WEE_FNT1=0 : WEE_FNT2=0
  5. For X=1 To 20
  6.    If(Lower$(Mid$(Font$(X),1,14))="helvetica.font") and Val(Mid$(Font$(X),30,4))=18 Then BIG_FNT=X
  7.    If(Lower$(Mid$(Font$(X),1,12))="diamond.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT1=X
  8.    If(Lower$(Mid$(Font$(X),1,9))="ruby.font") and Val(Mid$(Font$(X),30,4))=12 Then WEE_FNT2=X
  9. Next X
  10. GNG_OOT
  11. Procedure SCR_3
  12. Screen Open 0,320,200,16,Lowres
  13. Curs Off : Paper 9 : Cls 9 : Colour Back $0
  14. Colour 0,Colour(9) : Ink 2,9
  15. Rem Bar 0,0 To 319,199 
  16. Ink 2
  17. Box 0,0 To 319,199
  18. Pen 4
  19. Locate 1,2 : Print "We hope you enjoyed your brief look"
  20. Locate 1,3 : Print "at HENRIETTA's BOOK of SPELLS."
  21. Locate 1,4 : Print "The complete version has a great deal"
  22. Locate 1,5 : Print "more to offer."
  23. Pen 5
  24. Locate 1,7 : Print "It gives full control of the"
  25. Locate 1,8 : Print "paramaters shown in the Parent/Teacher"
  26. Locate 1,9 : Print "Section.  It also lets you use words"
  27. Locate 1,10 : Print "of 5-9 letters (not just 6), as well"
  28. Locate 1,11 : Print "as 5 large 'dictionaries' with a total"
  29. Locate 1,12 : Print "of over 2800 words."
  30. Locate 1,14 : Print "NB: Dictionaries can be customised"
  31. Locate 1,15 : Print "    to suit individual requirements."
  32. Pen 6
  33. Locate 1,17 : Print "The complete version is available from"
  34. Locate 1,18 : Print "your software supplier (see page after"
  35. Locate 1,19 : Print "next) or direct from Scetlander."
  36. Pen 2 : Locate 8,23 : Print "Press <Space> to continue"
  37. Palette $0,$0,$FFF,$0,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
  38. Clear Key : Wait Key 
  39. End Proc
  40. Procedure SCR_4
  41. Screen Open 0,320,200,16,Lowres
  42. Paper 0 : Cls 0
  43. Rem Colour 0,$F
  44. Load Iff "parrot.iff",0
  45. Ink 2,0
  46. Rem Bar 0,0 To 319,199 
  47. Ink 2
  48. Rem Box 0,0 To 319,199 
  49. Paper 0
  50. Pen 12 : Locate 12,1 : Print "Also available:"
  51. Pen 9
  52. Locate 12,2 : Print "HOORAY for HENRIETTA"
  53. Locate 12,3 : Print "helps you add, subtract,"
  54. Locate 13,4 : Print "multiply and divide"
  55. Locate 13,5 : Print "quickly and accurately."
  56. Pen 7
  57. Locate 8,7 : Print "Each maths function has eight"
  58. Locate 7,8 : Print "skill levels to ensure the ideal"
  59. Locate 7,9 : Print "starting point for everyone."
  60. Locate 7,10 : Print "Your computer monitors progress"
  61. Locate 7,11 : Print "and adjusts levels when "
  62. Locate 7,12 : Print "required."
  63. Locate 1,14 : Print "Practice is linked to an absorbing"
  64. Locate 1,15 : Print "storyline featuring Henrietta,"
  65. Locate 1,16 : Print "Hopeless Henry, and John the Parrot"
  66. Locate 1,17 : Print "(notorious for his practical jokes)."
  67. Pen 15 : Locate 1,19 : Print "Fun maths for 7-12+"
  68. Pen 9
  69. Locate 1,21 : Print "Recommended price in the UK is ï¿½24.99."
  70. Pen 12 : Locate 8,25 : Print "Press <Space> to continue"
  71. Clear Key : Wait Key 
  72. End Proc
  73. Procedure SCR_5
  74. Screen Open 0,320,200,16,Lowres
  75. Palette $0,$0,$FFF,$0,$F00,$F0,$FF0,$F,$FF0,$F,$F0,$0,$0,$0,$0,$0
  76. Curs Off : Colour Back $0
  77. Paper 7 : Cls 7
  78. Set Font BIG_FNT
  79. Set Text BOLD
  80. Ink 2,7
  81. Box 0,0 To 319,199
  82. Ink 4
  83. Text 10,25,"Your software supplier is:"
  84. Set Font WEE_FNT1
  85. Ink 2
  86. If Exist("suppl.dat")=0
  87.   S1$="Scetlander Ltd"
  88.   S2$="74 Victoria Crescent Road"
  89.   S3$="Glasgow G12 9JN"
  90.   S4$="Tel: 041-357 1659"
  91.   S5$="Fax: 041-357 5034"
  92.   S6$="  "
  93. Else 
  94.   On Error Goto LD_R
  95.   Open In 1,"suppl.dat"
  96.   Input #1,S1$
  97.   Input #1,S2$
  98.   Input #1,S3$
  99.   Input #1,S4$
  100.   Input #1,S5$
  101.   Input #1,S6$
  102.   Close 1
  103. End If 
  104. Goto AFT_R
  105. LD_R:
  106. S1$="Scetlander Ltd"
  107. S2$="74 Victoria Crescent Road"
  108. S3$="Glasgow G12 9JN"
  109. S4$="Tel: 041-357 1659"
  110. S5$="Fax: 041-357 5034"
  111. S6$="  "
  112. AFT_R:
  113. Text 9,50,S1$
  114. Text 9,70,S2$
  115. Text 9,90,S3$
  116. Text 9,110,S4$
  117. Text 9,130,S5$
  118. Text 9,150,S6$
  119. Pen 5
  120. Locate 8,23 : Print "Press <Space> to continue"
  121. Clear Key : Wait Key 
  122. End Proc
  123. Procedure SCR_6
  124. Screen Open 0,320,200,16,Lowres
  125. Paper 0 : Cls 0
  126. Rem Colour 0,$F
  127. Load Iff "WITCH.IFF",0
  128. Ink 2,0
  129. Rem Bar 0,0 To 319,199 
  130. Ink 2
  131. Rem Box 0,0 To 319,199 
  132. Pen 15 : Paper 0
  133. Pen 6
  134. Locate 5,3 : Print "HENRIETTA's BOOK of SPELLS";
  135. Pen 6
  136. Locate 6,4 : Print "is designed to "; : Pen 6 : Print "help you improve"
  137. Locate 6,5 : Print "your spelling and vocabulary."
  138. Pen 8
  139. Locate 6,7 : Print "Five different sections, three"
  140. Locate 7,8 : Print "skill levels and a choice of"
  141. Locate 7,9 : Print "words from 5 to 9 letters,"
  142. Locate 11,10 : Print "ensure the ideal starting"
  143. Locate 12,11 : Print "point for everyone. Your"
  144. Locate 11,12 : Print "computer monitors progress."
  145. Locate 11,14 : Print "Practice is linked to an    "
  146. Locate 0,15 : Print "absorbing "; : Print "storyline featuring"
  147. Locate 0,16 : Print "Henrietta, Hopeless Henry, Cedric the"
  148. Locate 0,17 : Print "Skeleton and Morgana the Morbid"
  149. Locate 0,18 : Print "(notorious for her evil spells)."
  150. Pen 15 : Locate 0,20 : Print "Fun with words for 7-14+"
  151. Pen 6
  152. Locate 1,22 : Print "Recommended price in the UK is ï¿½24.99."
  153. Pen 15 : Locate 8,25 : Print "Press <Space> to continue"
  154. Clear Key : Wait Key 
  155. End Proc
  156. Procedure GNG_OOT
  157. Freeze : Synchro Off 
  158. Screen Open 0,320,200,16,Lowres
  159. SCR_3
  160. SCR_6
  161. SCR_5
  162. SCR_4
  163. If Chip Free<400000
  164.    Cls 
  165.    Locate 1,10 : Centre "To play the Book of Spells DEMO again"
  166.    Locate 1,11 : Centre "please restart your computer."
  167.    Pen 9 : Locate 1,14 : Centre "Press any other key to leave the DEMO."
  168.    Ink 11 : Box 0,73 To 315,125
  169.    Ink 10 : Box 1,74 To 314,124
  170.    Ink 9 : Box 2,75 To 313,123
  171.    Ink 14 : Box 3,76 To 312,122
  172.    Clear Key : Wait Key : End 
  173. Else 
  174.    Run "AUTOEXEC.AMOS"
  175. End If 
  176. End Proc